home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
bbs_lord
/
life118d.zip
/
LIFE.ZIP
/
BARTXT.DAT
< prev
next >
Wrap
Text File
|
1996-03-12
|
16KB
|
453 lines
@#Bar
`<SetOptions>=[G,V,T,R]
`<Clear>
`0 Dockside Bar 'n Grill
`0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
`2 You find yourself lost in the city...As you look about
`2aimlessly...you find an open bar...ahhh the night life...
`2At last you can have a little fun! <g>.");
`2 (`5G`2)amble with the locals.
`2 (`5V`2)isit `5Lisa`2.
`2 (`5T`2)alk to`9 Al'Lan.
`2 (`4R`2)eturn to the big city
@#BarOptions?
`<SetMenu>=[Bar]
@#BarOptionsG
`<NewLine>
`<if>=[(FGambled),(TheUser),1,@#FGambled]
`2 You decide that you would like to play a game of
`3chance...
`2 You head to the dice table...
`2You look up at the man at the head of the table and he speaks:
`2 How much would you like to wager?
`2>
`<LordIn>=[(TempDbl2),70,100,2,(TheUser)]
`<ifless>=[(TempDbl2),(TheUser),1,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),(TempDbl2),@#NotNuff]
`<Random>=[(TempInt1),(TheUser),1,100]
`2
`0 Fair Enough!
`<SetVal>=[(FGambled),(TheUser),1]
`2
`2 You are handed a pair of dice...you don't know the game...
`2so you just roll and hope for the best...
`<ifless>=[(TempInt1),(TheUser),60,@#WinMoney]
`4 Unfortunately lady luck is not shining on you today...
`4You lose! :(
`<SetVal>=[(TempDbl3),(TheUser),(TempDbl2)]
`<SubVal>=[(FLifeGold),(TheUser),(TempDbl3)]
@#WinMoney
`3
`3 You win!!!
`<AddVal>=[(FLifeGold),(TheUser),(TempDbl2)]
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU WON ]
`<AddVal>=[(TempStr1),(TheUser),(TempDbl2)]
`<AddVal>=[(TempStr1),(TheUser), DOLLARS IN LIFE!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),2]
@#BarOptionsV
`<NewLine>
`<if>=[(FVisLisa),(TheUser),1,@#FTalkedLisa]
`<SetVal>=[(FVisLisa),(TheUser),1]
`$Lisa looks at you...
`2You look at Lisa...
`2Lisa says: "So you would like to talk eh?"
`5You wonder if you should really have bothered her...
`<if>=[(LSex),(TheUser),5,@#LisaFemale]
`2You sorta end up on the other side of the room next to Lisa...
`<More>
`2Lisa looks at you with interest...
`2What shall you do?
`<NewLine>
`2(`50`2) Beg apologies and move to another table
`2(`51`2) Talk about the weather
`2(`52`2) Buy Lisa a drink
`2(`53`2) Attempt to seduce Lisa
`2(`54`2) Give Lisa a Kiss
`2(`55`2) Grab Lisa and forcibly French kiss her
`2(`56`2) Order Lisa to meet you in your room`4 NOW`2!
`2(`57`2) Ask Lisa to marry you...
`<NewLine>
`<RetOff>
`2Make your selection (0..7) `0[`50`0]:
`<Space>
`<GetAns>=[(TempStr0),01234567,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),1,@#Lisa1]
`<if>=[(TempStr0),(TheUser),2,@#Lisa2]
`<if>=[(TempStr0),(TheUser),3,@#Lisa3]
`<if>=[(TempStr0),(TheUser),4,@#Lisa4]
`<if>=[(TempStr0),(TheUser),5,@#Lisa5]
`<if>=[(TempStr0),(TheUser),6,@#Lisa6]
`<if>=[(TempStr0),(TheUser),7,@#Lisa7]
`<SetVal>=[(FVisLisa),(TheUser),0]
`4Aborted!
@#Lisa1
`2You have a nice discussion of the weather...
`2LISA GIVES YOU A GEM!
`<AddVal>=[(LGems),(TheUser),1]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),LISA GIVES YOU A GEM!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),5]
@#Lisa2
`2You buy Lisa a nice double shot of the powerful Russian vodka.
`<ifless>=[(LCharm),(TheUser),10,@#Not10LCharmL]
`#Lisa thanks you for the drink
`2you both exchange 'sweet nothings'`2 :)
`2LISA GIVES YOU 2 Gems!
`<AddVal>=[(LGems),(TheUser),2]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),LISA GIVES YOU 2 GEMS!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),5]
@#Not10LCharmL
`2You don't even have 10 Charm!
`4LISA PUSHES YOU AWAY!
`4YOU LOSE 10 LORD EXPERIENCE!
`<AddVal>=[(LordExp),(TheUser),-10]
`<ifless>=[(LordExp),(TheUser),1,`<SetVal>=[(LordExp),(TheUser),1]]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU LOSE 10 LORD EXPERIENCE!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),4]
@#Lisa3
`2You move closer to Lisa...Attempting to attract her
`<ifless>=[(LCharm),(TheUser),20,@#Not20LCharmL]
`#Lisa doesn't try to evade your efforts...
`2You feel your relationship is moving along...
`2LISA GIVES YOU 3 Gems!
`<AddVal>=[(LGems),(TheUser),3]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),LISA GIVES YOU 3 GEMS!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),5]
@#Not20LCharmL
`2You don't even have 20 Charm!
`4LISA PUSHES YOU AWAY!
`4YOU LOSE 100 LORD EXPERIENCE!
`<AddVal>=[(LordExp),(TheUser),-100]
`<ifless>=[(LordExp),(TheUser),1,`<SetVal>=[(LordExp),(TheUser),1]]
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU LOSE 100 LORD EXPERIENCE!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),4]
@#Lisa4
`2You move closer to Lisa...Attempting to attract her
`<ifless>=[(LCharm),(TheUser),30,@#Not30LCharmL]
`#Lisa moves closer and you passionately kiss her on the lips...
`2You feel your relationship is moving along...
`2LISA GIVES YOU 5 Gems!
`<AddVal>=[(LGems),(TheUser),5]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),LISA GIVES YOU 5 GEMS!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),5]
@#Not30LCharmL
`2You don't even have 30 Charm!
`4LISA PUSHES YOU AWAY!
`4YOU LOSE 200 LORD EXPERIENCE!
`<AddVal>=[(LordExp),(TheUser),-200]
`<ifless>=[(LordExp),(TheUser),1,`<SetVal>=[(LordExp),(TheUser),1]]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU LOSE 200 LORD EXPERIENCE!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),4]
@#Lisa5
`2You move closer to Lisa...And make your move
`<ifless>=[(LCharm),(TheUser),40,@#Not40LCharmL]
`5Surprise shows clearly on Lisa's face...
`2but Lisa responds to your french kiss...
`2You feel your relationship is really moving along...
`2LISA GIVES YOU 7 Gems!
`<AddVal>=[(LGems),(TheUser),7]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),LISA GIVES YOU 7 GEMS!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),5]
@#Not40LCharmL
`2You don't even have 40 Charm!
`4LISA PUSHES YOU AWAY!
`4YOU LOSE 300 LORD EXPERIENCE!
`<AddVal>=[(LordExp),(TheUser),-300]
`<ifless>=[(LordExp),(TheUser),1,`<SetVal>=[(LordExp),(TheUser),1]]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU LOSE 300 LORD EXPERIENCE!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),4]
@#Lisa6
`5You look down at Lisa laying on the couch...
`2You order her to meet you in your room NOW!
`2Others in the bar look your way...They begin to whisper...
`<More>
`<ifless>=[(LCharm),(TheUser),50,@#Not50LCharmL]
`5Surprise shows clearly on Lisa's face...
`2but Lisa can see how what a Charmer you are and cannot deny you...
`2You go upstairs...Lisa follows meekly behind...
`2You enjoy yourself upstairs...you suspect Lisa did too
`2LISA GIVES YOU 10 Gems!
`<AddVal>=[(LGems),(TheUser),10]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),LISA GIVES YOU 10 GEMS!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),5]
@#Not50LCharmL
`2You don't even have 50 Charm!
`4LISA PUSHES YOU AWAY!
`4YOU LOSE 400 LORD EXPERIENCE!
`<AddVal>=[(LordExp),(TheUser),-400]
`<ifless>=[(LordExp),(TheUser),1,`<SetVal>=[(LordExp),(TheUser),1]]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU LOSE 400 LORD EXPERIENCE!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),4]
@#Lisa7
`2Lisa doesn't wish to be married yet...sorry.
@#BarOptionsT
`<NewLine>
`<if>=[(FVisLan),(TheUser),1,@#FTalkedLan]
`<SetVal>=[(FVisLan),(TheUser),1]
`$Lan looks at you...
`2You look at Lan...
`2Lan says: "So you would like to talk eh?"
`5You wonder if you should really have bothered him...
`<else>=[(LSex),(TheUser),5,@#LanMale]
`2You slink your way across the room over to where Lan sits...
`<More>
`2Lan looks at you with interest...
`2What shall you do?
`<NewLine>
`2(`50`2) Beg apologies and move to another table
`2(`51`2) Talk about the weather
`2(`52`2) Invite Lan to hug you
`2(`53`2) Attempt to seduce Lan
`2(`54`2) Invite Lan to kiss you
`2(`55`2) Grab Lan and forcably french kiss him
`2(`56`2) Order him to meet you in your room`4 NOW`2!
`2(`57`2) Ask him to marry you...
`<NewLine>
`<RetOff>
`2Make your selection (0..7) `0[`50`0]:
`<Space>
`<GetAns>=[(TempStr0),01234567,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),1,@#Lan1]
`<if>=[(TempStr0),(TheUser),2,@#Lan2]
`<if>=[(TempStr0),(TheUser),3,@#Lan3]
`<if>=[(TempStr0),(TheUser),4,@#Lan4]
`<if>=[(TempStr0),(TheUser),5,@#Lan5]
`<if>=[(TempStr0),(TheUser),6,@#Lan6]
`<if>=[(TempStr0),(TheUser),7,@#Lan7]
`<SetVal>=[(FVisLan),(TheUser),0]
`4Aborted!
@#Lan1
`2You have a nice discussion of the weather...
`2LAN GIVES YOU A GEM!
`<AddVal>=[(LGems),(TheUser),1]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),LAN GIVES YOU A GEM!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),5]
@#Lan2
`2You invite Lan to give you a nice friendly hug...
`<ifless>=[(LCharm),(TheUser),10,@#Not10LCharm]
`#Lan moves closer and hugs you...
`2you both exchange 'sweet nothings'`2 :)
`2LAN GIVES YOU 2 Gems!
`<AddVal>=[(LGems),(TheUser),2]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),Lan GIVES YOU 2 GEMS!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),5]
@#Not10LCharm
`2You don't even have 10 Charm!
`4LAN PUSHES YOU AWAY!
`4YOU LOSE 10 LORD EXPERIENCE!
`<AddVal>=[(LordExp),(TheUser),-10]
`<ifless>=[(LordExp),(TheUser),1,`<SetVal>=[(LordExp),(TheUser),1]]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU LOSE 10 LORD EXPEREINCE!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),4]
@#Lan3
`2You move closer to Lan...Attempting to attract him
`<ifless>=[(LCharm),(TheUser),20,@#Not20LCharm]
`#Lan doesn't try to evade your efforts...
`2You feel your relationship is moving along...
`2LAN GIVES YOU 3 Gems!
`<AddVal>=[(LGems),(TheUser),3]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),Lan GIVES YOU 3 GEMS!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),5]
@#Not20LCharm
`2You don't even have 20 Charm!
`4LAN PUSHES YOU AWAY!
`4YOU LOSE 100 LORD EXPERIENCE!
`<AddVal>=[(LordExp),(TheUser),-100]
`<ifless>=[(LordExp),(TheUser),1,`<SetVal>=[(LordExp),(TheUser),1]]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU LOSE 100 EXPERIENCE!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),4]
@#Lan4
`2You move closer to Lan...Attempting to attract him
`<ifless>=[(LCharm),(TheUser),30,@#Not15LCharm]
`#Lan moves closer and kisses you passionately on the lips...
`2You feel your relationship is moving along...
`2LAN GIVES YOU 5 Gems!
`<AddVal>=[(LGems),(TheUser),5]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),Lan GIVES YOU 5 GEMS!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),5]
@#Not30LCharm
`2You don't even have 30 Charm!
`4LAN PUSHES YOU AWAY!
`4YOU LOSE 200 LORD EXPERIENCE!
`<AddVal>=[(LordExp),(TheUser),-200]
`<ifless>=[(LordExp),(TheUser),1,`<SetVal>=[(LordExp),(TheUser),1]]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU LOSE 200 LORD EXPERIENCE!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),4]
@#Lan5
`2You move closer to Lan...And make your move
`<ifless>=[(LCharm),(TheUser),40,@#Not40LCharm]
`5Surprise shows clearly on Lan's face...
`2but Lan responds to your french kiss...
`2You feel your relationship is really moving along...
`2LAN GIVES YOU 7 Gems!
`<AddVal>=[(LGems),(TheUser),7]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),Lan GIVES YOU 7 GEMS!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),5]
@#Not40LCharm
`2You don't even have 40 Charm!
`4LAN PUSHES YOU AWAY!
`4YOU LOSE 300 LORD EXPERIENCE!
`<AddVal>=[(LordExp),(TheUser),-300]
`<ifless>=[(LordExp),(TheUser),1,`<SetVal>=[(LordExp),(TheUser),1]]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU LOSE 300 LORD EXPERIENCE!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),4]
@#Lan6
`5You look down at Lan sitting at the table...
`2You order him to meet you in your room NOW!
`2Others in the bar look your way...They begin to whisper...
`<More>
`<ifless>=[(LCharm),(TheUser),50,@#Not50LCharm]
`5Surprise shows clearly on Lan's face...
`2but Lan can see how Charming you are and cannot deny you...
`2You go upstairs...Lan follows behind...
`2You enjoy yourself upstairs...you suspect Lan did too
`2LAN GIVES YOU 10 Gems!
`<AddVal>=[(LGems),(TheUser),10]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),Lan GIVES YOU 10 GEMS!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),5]
@#Not50LCharm
`2You don't even have 50 Charm!
`4LAN PUSHES YOU AWAY!
`4YOU LOSE 400 LORD EXPERIENCE!
`<AddVal>=[(LordExp),(TheUser),-400]
`<ifless>=[(LordExp),(TheUser),1,`<SetVal>=[(LordExp),(TheUser),1]]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU LOSE 400 LORD EXPERIENCE!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),4]
@#Lan7
`2Lan doesn't wish to be married yet...sorry.
@#LanMale
`2Lan says: "Hey pal...you know, sometimes I give out fairies..."
`<Random>=[(TempInt0),(TheUser),1,100]
`<ifless>=[(TempInt0),(TheUser),50,@#GiveFairy]
`4But not today...sorry.
@#LisaFemale
`2Lisa says: "Hey there...you know, sometimes I give out fairies..."
`<Random>=[(TempInt0),(TheUser),1,100]
`<ifless>=[(TempInt0),(TheUser),33,@#GiveFairy]
`4But not today...sorry.
@#GiveFairy
`<SetVal>=[(TGotFairy),(TheUser),1]
`3 You are led into a back room which you would have never have guessed
`3was even there...inside the room you see many fairies...they seem to
`3be doing something with some muddy looking water...
`5 When you are told that they are working off their task by transmuting
`5lake water into beer, you are glad you decided not to drink here!
`9Lan and Lisa point to one fairy in particular...that fairy wordlessly
`9approaches you...
`#You now have a fairy!
`<RetOff>
`<SetVal>=[(TempStr2),(TheUser),`. `2-`0=`2-`0=`2-`0=`2-]
`<SetVal>=[(TempStr1),(TheUser),(LordNick)]
`<AddVal>=[(TempStr1),(TheUser), `#Has been `$given`# a fairy today in `1Lo`%rd Li`9fe!`2]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),Lognow.txt,%]
`<FilePrint>=[(TempStr2),(TheUser),(TLordsDir),Lognow.txt,2]
`<SetVal>=[(TempStr2),(TheUser),]
`<FilePrint>=[(TempStr2),(TheUser),(TLordsDir),Lognow.txt,.]
`<RetOn>
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU WERE GIVEN A FAIRY IN THE BAR!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),#]
@#BarOptionsR
`<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT]
@#BarOptions|
`<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT]
@#UserNotFound
`<NewLine>
`<RetOn>
`7User not found...
`2The user may not have been in lord life yet...
`2Or you may not have entered the name right...
`2Type less of the name if you are unsure...
@#UserNoInfo
`<NewLine>
`2Sorry...but that user has not entered their info yet.
`<NewLine>
@#Abort
`<NewLine>
`4Aborted!
`<NewLine>
@#FTalkedLan
`<NewLine>
`2Sorry...but Lan is busy...come back tomorrow.
`<NewLine>
@#FTalkedLisa
`<NewLine>
`2Sorry...but Lisa is busy...come back tomorrow.
`<NewLine>
@#NoMeal
`<NewLine>
`2 Sorry pal...but we're out of ingredients for that
`2meal until the wagons come in tomorrow.
`<NewLine>
@#NoFairy
`<NewLine>
`2 Sorry pal...but you do not have a fairy!
`<NewLine>
@#FGambled
`2
`2Sorry...but you have already Gambled!
@#NotNuff
`2
`2Sorry...but you need to have money to play at this table...
`3go to the bank and get some money...or `4get lost!
@#NSF
`2
`2Sorry...but you do not have enough money...
`3Go to the bank and get some money...or `4get lost!
@#YouNoHave
`2
`2WHAT!?! You do not have one!!!
@#ENDOFFILE